home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / RADIOBTN.BAS < prev    next >
BASIC Source File  |  1995-11-15  |  1KB  |  51 lines
  1.  
  2.     'demonstrates radiobuttons
  3.  
  4.     'don't open a main window, please
  5.     nomainwin
  6.  
  7.     WindowWidth = 520
  8.     WindowHeight = 220
  9.  
  10.     groupbox #cfg, "Confirm File Operations:", 240, 20, 200, 140
  11.     radiobutton #cfg.Aalways, "Always", [alwaysConfirm], [nil], 260, 45, 130, 20
  12.     radiobutton #cfg.AwhenReplacing, "When Replacing", [whenReplacingConfirm], [nil], 260, 70, 130, 20
  13.     radiobutton #cfg.Anever, "Never", [neverConfirm], [nil], 260, 95, 130, 20
  14.     groupbox #cfg, "Confirm File Operations:", 20, 20, 200, 140
  15.     radiobutton #cfg.always, "Always", [alwaysConfirm], [nil], 40, 45, 130, 20
  16.     radiobutton #cfg.whenReplacing, "When Replacing", [whenReplacingConfirm], [nil], 40, 70, 130, 20
  17.     radiobutton #cfg.never, "Never", [neverConfirm], [nil], 40, 95, 130, 20
  18.     button #cfg, " &OK ", [cfgOk], UL, 450, 30
  19.  
  20.     open "Action Confirmation - Setup" for dialog as #cfg
  21.     print #cfg, "trapclose [cfgOk]"
  22.  
  23. [inputLoop]
  24.     input h$
  25.     goto [inputLoop]
  26.  
  27. [alwaysConfirm]
  28.  
  29.     status$ = "Always Confirm"
  30.     goto [inputLoop]
  31.  
  32. [whenReplacingConfirm]
  33.  
  34.     status$ = "When Replacing Confirm"
  35.     goto [inputLoop]
  36.  
  37. [neverConfirm]
  38.  
  39.     status$ = "Never Confirm"
  40.     goto [inputLoop]
  41.  
  42.  
  43. [cfgOk]
  44.  
  45.     confirm status$ + chr$(13) + "Save this configuration?"; answer$
  46.     'perform some sort of save for config here
  47.  
  48.     close #cfg
  49.  
  50.     end
  51.